﻿Namespace Security

    Public Class ActiveSessionVO

        Private _token As String
        Private _userName As String
        Private _openAgo As Integer
        Private _activeAgo As Integer
        'Private _currentModel As String
        Private _timeoutIn As Integer

        Sub New()
        End Sub

        Sub New(session As ClientSessionVO)
            token = session.token
            userName = session.userName
        End Sub

        Public Property token As String
            Get
                Return _token
            End Get
            Set(value As String)
                _token = value
            End Set
        End Property

        Public Property userName As String
            Get
                Return _userName
            End Get
            Set(value As String)
                _userName = value
            End Set
        End Property

        Public Property openAgo() As Integer
            Get
                Return _openAgo
            End Get
            Set(ByVal value As Integer)
                _openAgo = value
            End Set
        End Property

        Public Property activeAgo() As Integer
            Get
                Return _activeAgo
            End Get
            Set(ByVal value As Integer)
                _activeAgo = value
            End Set
        End Property


        'Public Property currentModel() As String
        '    Get
        '        Return _currentModel
        '    End Get
        '    Set(ByVal value As String)
        '        _currentModel = value
        '    End Set
        'End Property


        Public Property timeoutIn() As Integer
            Get
                Return _timeoutIn
            End Get
            Set(ByVal value As Integer)
                _timeoutIn = value
            End Set
        End Property

    End Class

End Namespace